home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS04.ADF / idemo / txwrite.c < prev   
C/C++ Source or Header  |  1985-10-26  |  188b  |  18 lines
  1. /*** txwrite.c ***/
  2. #include <exec/types.h>
  3.  
  4. int strsize(s)
  5. char *s;
  6. {
  7.     int i;
  8.     i = 0;
  9.     while (*s++)    i++;
  10.     return(i);
  11. }
  12.  
  13. TxWrite(w,s)
  14. char *s;
  15. {
  16.     Text(w,s,strsize(s));
  17. }
  18.